﻿Public Class F01_VImp_reverso_

    Private Sub btnAnverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnverso.Click
        Me.Close()
        F01_VImp_anverso_.Show()
    End Sub

    Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click
        Dim oF01VImpRNegocios As New Negocios.F01_VImpR
        Dim oF01VImpR As New Entidades.EF01Vehiculo
        oF01VImpR.certificaa = UCase(txtcertifica.Text)
        oF01VImpR.apenomdentitt = UCase(txtapenomdentit.Text)
        oF01VImpR.dnititt = UCase(txtdnitit.Text)
        oF01VImpR.letitt = UCase(txtletit.Text)
        oF01VImpR.lctitt = UCase(txtlctit.Text)
        oF01VImpR.cititt = UCase(txtcitit.Text)
        oF01VImpR.pasaportetitt = UCase(txtpasaportetit.Text)
        oF01VImpR.numtitt = UCase(txtnumtit.Text)
        oF01VImpR.autoridatitt = UCase(txtautoridadtit.Text)
        oF01VImpR.apenomdencondd = UCase(txtapenomdencond.Text)
        oF01VImpR.dnicondd = UCase(txtdnicond.Text)
        oF01VImpR.lecondd = UCase(txtlecond.Text)
        oF01VImpR.lccondd = UCase(txtlccond.Text)
        oF01VImpR.cicondd = UCase(txtcicond.Text)
        oF01VImpR.pasaportecondd = UCase(txtpasaportecond.Text)
        oF01VImpR.numcondd = UCase(txtnumcond.Text)
        oF01VImpR.autoridadcondd = UCase(txtautoridadcond.Text)
        oF01VImpR.observacioness = UCase(txtobservaciones.Text)
        oF01VImpR.lugarr = UCase(txtlugar.Text)
        oF01VImpR.fechadiaa = UCase(txtfechadia.Text)
        oF01VImpR.fechamess = UCase(txtfechames.Text)
        oF01VImpR.fechaañoo = UCase(txtfechaaño.Text)
        oF01VImpR.autorizadoo = UCase(txtautorizado.Text)
        oF01VImpR.tipodocnumm = UCase(txttipodocnum.Text)
        oF01VImpR.apenomm = UCase(txtapenom.Text)
        oF01VImpR.docc = UCase(txtdoc.Text)
        oF01VImpR.caracterr = UCase(txtcaracter.Text)
        Try
            If oF01VImpRNegocios.guardarF01VImpR(oF01VImpR) Then
                MsgBox("La carga ha sido exitosa", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Carga fallida. " + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try
    End Sub

    Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
        txtcertifica.Text = ""
        txtcertifica.Text = Focus()
        txtapenomdentit.Text = ""
        txtdnitit.Text = ""
        txtletit.Text = ""
        txtlctit.Text = ""
        txtcitit.Text = ""
        txtpasaportetit.Text = ""
        txtnumtit.Text = ""
        txtautoridadtit.Text = ""
        txtapenomdencond.Text = ""
        txtdnicond.Text = ""
        txtlecond.Text = ""
        txtlccond.Text = ""
        txtcicond.Text = ""
        txtpasaportecond.Text = ""
        txtnumcond.Text = ""
        txtautoridadcond.Text = ""
        txtobservaciones.Text = ""
        txtlugar.Text = ""
        txtfechadia.Text = ""
        txtfechames.Text = ""
        txtfechaaño.Text = ""
        txtautorizado.Text = ""
        txttipodocnum.Text = ""
        txtapenom.Text = ""
        txtdoc.Text = ""
        txtcaracter.Text = ""

    End Sub

    Private Sub btnEditarAnverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditarAnverso.Click
        F01_VImp_anverso_.Show()
    End Sub

    Private Sub btnEditarReverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditarReverso.Click
        Dim oF01VImpRNegocios As New Negocios.F01_VImpR
        Dim oF01VImpR As New Entidades.EF01Vehiculo
        oF01VImpR.certificaa = UCase(txtcertifica.Text)
        oF01VImpR.apenomdentitt = UCase(txtapenomdentit.Text)
        oF01VImpR.dnititt = UCase(txtdnitit.Text)
        oF01VImpR.letitt = UCase(txtletit.Text)
        oF01VImpR.lctitt = UCase(txtlctit.Text)
        oF01VImpR.cititt = UCase(txtcitit.Text)
        oF01VImpR.pasaportetitt = UCase(txtpasaportetit.Text)
        oF01VImpR.numtitt = UCase(txtnumtit.Text)
        oF01VImpR.autoridatitt = UCase(txtautoridadtit.Text)
        oF01VImpR.apenomdencondd = UCase(txtapenomdencond.Text)
        oF01VImpR.dnicondd = UCase(txtdnicond.Text)
        oF01VImpR.lecondd = UCase(txtlecond.Text)
        oF01VImpR.lccondd = UCase(txtlccond.Text)
        oF01VImpR.cicondd = UCase(txtcicond.Text)
        oF01VImpR.pasaportecondd = UCase(txtpasaportecond.Text)
        oF01VImpR.numcondd = UCase(txtnumcond.Text)
        oF01VImpR.autoridadcondd = UCase(txtautoridadcond.Text)
        oF01VImpR.observacioness = UCase(txtobservaciones.Text)
        oF01VImpR.lugarr = UCase(txtlugar.Text)
        oF01VImpR.fechadiaa = UCase(txtfechadia.Text)
        oF01VImpR.fechamess = UCase(txtfechames.Text)
        oF01VImpR.fechaañoo = UCase(txtfechaaño.Text)
        oF01VImpR.autorizadoo = UCase(txtautorizado.Text)
        oF01VImpR.tipodocnumm = UCase(txttipodocnum.Text)
        oF01VImpR.apenomm = UCase(txtapenom.Text)
        oF01VImpR.docc = UCase(txtdoc.Text)
        oF01VImpR.caracterr = UCase(txtcaracter.Text)
        Try
            If oF01VImpRNegocios.editarF01VImpR(oF01VImpR) Then
                MsgBox("La edición ha sido exitosa", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Edición fallida. " + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try
    End Sub

    Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click
        Me.Close()

    End Sub

    Private Sub btnF01V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01V.Click
        F01_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF01M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01M.Click
        F01_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF01I_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01I.Click
        F01_VImp_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF02V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF02V.Click
        F02_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF02M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF02M.Click
        F02_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF04V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF04V.Click
        F04_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
        F04_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF08V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF08V.Click
        F08_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF08M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF08M.Click
        F08_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF11V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF11V.Click
        F11_V_anverso_.Show()
        Me.Close()

    End Sub

    Private Sub btnF11M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF11M.Click
        F11_M_anverso_.Show()
        Me.Close()

    End Sub

    Private Sub btnF12V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF12V.Click
        F12_V.Show()
        Me.Close()
    End Sub

    Private Sub btnF12M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF12M.Click
        F12_M.Show()
        Me.Close()
    End Sub

    Private Sub btnF99_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF99.Click
        F99.Show()
        Me.Close()
    End Sub

    Private Sub btnF59M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF59M.Click
        F59_M.Show()
        Me.Close()
    End Sub

    Private Sub btnFR00_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFR00.Click
        F_R00.Show()
        Me.Close()
    End Sub
End Class
